home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / l'accordeur (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  115 lines
  1. 1 REM NOTECRAFTER
  2. 100 VC=53248:POKEVC+32,6:POKEVC+33,0:PRINTCHR$(147)
  3. 105 MC=54272:FORX=MCTO54296:POKEX,0:NEXTX
  4. 110 DIM NT%(37,1):GOSUB1000
  5. 115 PRINT"[147]          L   A C C O R D E U R         [146]";
  6. 120 PRINT" CE JEU NECESSITE UNE BONNE MEMOIRE"
  7. 125 PRINT" AINSI QU'UNE BONNE OREILLE MUSICALE."
  8. 130 PRINT" L'ORDINATEUR CHOISIT UNE NOTE ET LA     JOUE. ";
  9. 135 PRINT" ENSUITE,IL CHOISIT UNE NOTE"
  10. 140 PRINT" POUR VOUS ET LA JOUE."
  11. 150 PRINT"   VOUS DEVEZ AUGMENTER OU DIMINUER LA"
  12. 153 PRINT" TONALITE DE VOTRE NOTE POUR QUE VOTRE"
  13. 157 PRINT" NOTE DEVIENNE IDENTIQUE A CELLE DE"
  14. 160 PRINT" L 'ORDINATEUR."
  15. 170 PRINT"         PRESSER UNE TOUCHE POUR DEBUTER"
  16. 180 GOSUB 1500
  17. 190 DIMRT$(5):FORX=0TO5:READX$:RT$(X)=X$:NEXTX
  18. 200 REM *** SELECTION DES NOTES ***
  19. 210 CN=INT(RND(1)*61)+10
  20. 220 PN=INT(RND(1)*61)+10:IF CN=PNTHEN220
  21. 230 POKEVC+33,15:PRINT"[147][144]            NOTE DE L'ORDINATEUR:"
  22. 240 X=CN:GOSUB2000:FORX=1TO1000:NEXTX
  23. 250 PRINT"                 NOTE DU JOUEUR:"
  24. 260 X=PN:GOSUB2000
  25. 300 PRINT"[147]        --- CHOISIR LES OPTIONS ---"
  26. 310 PRINT"     1[146]  LEGERE DIMINUTION DE TONALITE"
  27. 320 PRINT"     2[146]  DIMINUTION MOYENNE DE TONALITE"
  28. 330 PRINT"     3[146]  FORTE DIMINUTION DE TONALITE"
  29. 340 PRINT"     5[146]      *** COMPARAISON ***"
  30. 350 PRINT"     7[146]  LEGERE AUGMENTATION DE TONALITE"
  31. 360 PRINT"     8[146]  AUGMENTATION MOYENNE DE TONALITE"
  32. 370 PRINT"     9[146]  FORTE AUGMENTATION DE TONALITE"
  33. 400 X=PEEK(197):IFX=64 THEN400
  34. 410 IFX=56 THENPN=PN-1:GOTO500
  35. 420 IFX=59THENPN=PN-5:GOTO500
  36. 430 IFX=8THENPN=PN-10:GOTO500
  37. 440 IFX=16THEN700
  38. 450 IFX=24THENPN=PN+1:GOTO500
  39. 460 IFX=27THENPN=PN+5:GOTO500
  40. 470 IFX=32THENPN=PN+10:GOTO500
  41. 480 GOTO400
  42. 500 IFPN<10THENPN=10
  43. 610 IFPN>70THENPN=70
  44. 620 X=PN:GOSUB2000:GOTO400
  45. 700 IFPN<>CNTHEN800
  46. 710 PRINT"[147]            FELICITATIONS!"
  47. 720 PRINT"  VOUS AVEZ CHOISIT LA MEME NOTE QUE"
  48. 725 PRINT"            L'ORDINATEUR!!!"
  49. 730 PRINT"      VOUS DEVEZ ETRE UN TRES BON"
  50. 735 PRINT"             MUSICIEN!!!!."
  51. 740 PRINT"       PRESSER UNE TOUCHE POUR CONTINUER"
  52. 750 POKE 198,0
  53. 760 GOSUB 1500
  54. 770 GOTO900
  55. 800 PRINT"[147]            NOTE DE L'ORDINATEUR:"
  56. 805 X=CN:GOSUB2000:FORX=1TO1000:NEXTX
  57. 810 PRINT"                 NOTE DU JOUEUR:"
  58. 815 X=PN:GOSUB2000
  59. 820 IFPN<CNTHENX=CN-PN:GOTO840
  60. 830 X=PN-CN
  61. 840 Y=100-INT((X*100)/60):IFY<1THENY=1
  62. 850 PRINT"           VOTRE MOYENNE EST DE";Y;"[157]%"
  63. 860 X=INT((100-Y)/10):IFX<0THENX=0
  64. 870 IFX>5THEN900
  65. 880 PRINT"         VOTRE OREILLE MUSICALE EST":X$=RT$(X)
  66. 885 IFLEN(X$)<38THENX$=" "+X$+" ":GOTO885
  67. 890 PRINTX$;
  68. 900 PRINT"           AUTRE ESSAI? (OUI[146]/ NON[146])"
  69. 910 GETX$:IFX$=""THEN910
  70. 920 IF X$="O"THEN200
  71. 930 IF X$<>"N"THEN910
  72. 940 PRINTCHR$(147)
  73. 950 END
  74. 1000 FOR X=832TO832+63:READZ:POKEX,Z:NEXTX
  75. 1010 POKEVC+0,40:POKEVC+2,120:POKEVC+4,200:POKEVC+6,22
  76. 1020 POKEVC+1,40:POKEVC+3,30:POKEVC+5,20:POKEVC+7,10
  77. 1030 POKEVC+16,8:POKEVC+23,15:POKEVC+27,15:POKEVC+28,0:POKEVC+29,15
  78. 1040 FORX=0TO3:POKEVC+39+X,X+2:NEXTX
  79. 1050 FORX=0TO3:POKE2040+X,13:NEXTX
  80. 1100 FORX=0TO37:FORY=0TO1:READZ:NT%(X,Y)=Z:NEXTY,X
  81. 1110 POKEMC+0,0:POKEMC+1,0:POKEMC+5,79:POKEMC+6,129
  82. 1120 RETURN
  83. 1500 POKEVC+21,15:POKEMC+24,15:X=0
  84. 1510 Y=INT(NT%(X,0)/256)
  85. 1520 POKEMC+0,NT%(X,0)-(Y*256)
  86. 1530 POKEMC+1,Y:POKEMC+4,17
  87. 1540 FORZ=1TONT%(X,1)*100:NEXTZ
  88. 1550 X=X+1:IFX>37THENX=0
  89. 1560 POKEMC+4,16
  90. 1570 FORZ=1TO7STEP2
  91. 1580 Y=PEEK(VC+Z)+8:IFY>250THENY=10
  92. 1590 POKEVC+Z,Y
  93. 1595 NEXTZ
  94. 1600 GETX$:IFX$=""THEN1510
  95. 1610 POKEMC+24,0:POKEVC+21,0
  96. 1620 PRINTCHR$(147)
  97. 1630 FORX=1TO1000:NEXTX
  98. 1640 RETURN
  99. 1700 DATA1,255,248,1,255,248,1,255,248,1,192,56,1,192,56,1,255,248,1,192
  100. 1710 DATA56,1,192,56,1,192,56,1,192,56,1,192,56,1,192,56,1,192,56,1,192,56
  101. 1720 DATA15,193,248,31,195,248,63,199,248,127,143,240,255,31,224,254
  102. 1730 DATA31,192,124,15,128,0
  103. 1800 DATA8101,2,8583,2,10814,2,5728,1,5728,2,5728,2,5728,2,6430,2,5728,1
  104. 1810 DATA8101,2,10814,1,8583,2,11457,1,6430,2,7217,1,8101,2,8583,1
  105. 1820 DATA10814,2,10814,1,10814,2,5728,1,5728,2,5728,1,6430,2,5728,1,8101,2
  106. 1830 DATA10814,2,10814,2,8583,2,11457,1,6430,2,7217,1
  107. 1840 DATA8101,2,8101,1,7217,1,7217,2,8101,3,8101,2
  108. 1900 DATAEXCELLENTE,"TRES BONNE",BONNE,"+ QUE NORMALE",NORMALE,"PAS MAUVAISE"
  109. 2000 POKE MC+0,0:POKEMC+1,X:POKEMC+4,17:POKEMC+5,15:POKEMC+6,15
  110. 2010 POKEMC+24,5
  111. 2020 FORX=1TO800:NEXTX:POKEMC+4,16
  112. 2030 FORX=1TO50:NEXTX
  113. 2040 POKEMC+24,0
  114. 2050 RETURN
  115.